home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GROUP1.cpt / GROUP1 Folder / Group 1 Analysis / card_16062.txt < prev    next >
Encoding:
Text File  |  1991-08-08  |  8.4 KB  |  425 lines
  1. -- card: 16062 from stack: in
  2. -- bmap block id: 16175
  3. -- flags: 0000
  4. -- background id: 5931
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global time1
  9.   global Silver
  10.   global Mercury
  11.   global Lead
  12.   global key
  13.   put empty into bkgnd field "info"
  14.   set the highlight of button "invert" to true
  15.  
  16. end opencard
  17.  
  18.  
  19.  
  20.  
  21. on check
  22.   global Silver
  23.   global Mercury
  24.   global Lead
  25.   global reagent
  26.   global route
  27.   global score
  28.   if reagent = "Potassium Dichromate"  and lead = "lead" then
  29.     go to card "yesLead"
  30.     put "Result of Adding Potassium Dichromate" into line 1 of bkgnd field "info"
  31.     put "Formation of Yellow Precipitate" into line 2 of bkgnd field "info"
  32.   end if
  33.  
  34.   if reagent = "Potassium Dichromate"  and lead <> "lead" then
  35.     go to  card "nolead"
  36.     put "Result of Adding Potassium Dichromate" into line 1 of bkgnd field "info"
  37.     put "No evidence of precipitate" into line 2 of bkgnd field "info"
  38.   end if
  39.  
  40.   if  reagent<> "Potassium Dichromate" then
  41.     put score + 10 into score
  42.  
  43.     put empty into bkgnd field "info"
  44.     put "Please Try Again" into line 1 of bkgnd field "info"
  45.  
  46.     put "or Examine Flow Chart" into line 2 of bkgnd field "info"
  47.     repeat 2
  48.       set the highlight of card button "flow Chart" to true
  49.       wait 1 second
  50.       set the highlight of card button "flow Chart" to false
  51.       wait 1 second
  52.     end repeat
  53.  
  54.   end if
  55.  
  56. end check
  57.  
  58.  
  59.  
  60.  
  61. -- part 4 (field)
  62. -- low flags: 81
  63. -- high flags: 0004
  64. -- rect: left=0 top=20 right=178 bottom=387
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 21
  69. -- text size: 24
  70. -- style flags: 0
  71. -- line height: 32
  72. -- part name: note
  73.  
  74.  
  75. -- part 11 (button)
  76. -- low flags: 00
  77. -- high flags: 2000
  78. -- rect: left=3 top=44 right=106 bottom=54
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Hydrochloric Acid
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   global route
  90.   global reagent
  91.   global lastClick
  92.  
  93.   if the seconds - lastClick < 4 then exit mouseup
  94.   else put the seconds into lastClick
  95.   get the short name of me
  96.   put it into reagent
  97.   check
  98.  
  99.  
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 12 (button)
  105. -- low flags: 00
  106. -- high flags: 2000
  107. -- rect: left=64 top=44 right=106 bottom=115
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Nitric Acid
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.  
  119.   global reagent
  120.  
  121.   global lastClick
  122.  
  123.   if the seconds - lastClick < 4 then exit mouseup
  124.   else put the seconds into lastClick
  125.   get the short name of me
  126.   put it into reagent
  127.   check
  128.  
  129.  
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 13 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=125 top=44 right=106 bottom=176
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Distilled Water
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.  
  149.   global reagent
  150.   global lastClick
  151.  
  152.   if the seconds - lastClick < 4 then exit mouseup
  153.   else put the seconds into lastClick
  154.   get the short name of me
  155.   put it into reagent
  156.   check
  157.  
  158.  
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 14 (button)
  164. -- low flags: 00
  165. -- high flags: 2000
  166. -- rect: left=184 top=44 right=106 bottom=235
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: Potassium Dichromate
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   global route
  178.   global reagent
  179.   global lastClick
  180.  
  181.   if the seconds - lastClick < 4 then exit mouseup
  182.   else put the seconds into lastClick
  183.   get the short name of me
  184.   put it into reagent
  185.   check
  186.  
  187.  
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 15 (button)
  193. -- low flags: 00
  194. -- high flags: 2000
  195. -- rect: left=246 top=44 right=106 bottom=297
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Ammonia
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   global route
  207.   global reagent
  208.   global lastClick
  209.  
  210.   if the seconds - lastClick < 4 then exit mouseup
  211.   else put the seconds into lastClick
  212.   get the short name of me
  213.   put it into reagent
  214.   check
  215.  
  216.  
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 22 (field)
  222. -- low flags: 81
  223. -- high flags: 0000
  224. -- rect: left=389 top=212 right=283 bottom=507
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 3
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: hold
  233.  
  234.  
  235. -- part 29 (field)
  236. -- low flags: 81
  237. -- high flags: 0001
  238. -- rect: left=161 top=212 right=319 bottom=195
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 3
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: f
  247.  
  248.  
  249. -- part 36 (button)
  250. -- low flags: 00
  251. -- high flags: 8002
  252. -- rect: left=434 top=205 right=254 bottom=509
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Flow Chart
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   push card
  264.   go to card id 7591
  265.   put 1 into zz
  266.   repeat until zz = 4
  267.     set the highlight of card button step3 to true
  268.     wait 30
  269.     set the highlight of card button step3 to false
  270.     wait 30
  271.     put zz+1 into zz
  272.   end repeat
  273.  
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 37 (button)
  279. -- low flags: 00
  280. -- high flags: 2000
  281. -- rect: left=433 top=5 right=95 bottom=511
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: cv
  290. ----- HyperTalk script -----
  291.  
  292.  
  293. on mouseUp
  294.   Put empty into card field "message"
  295.   show card field "message"
  296.   put "Check Flow Chart" into line 1 of card field "message"
  297.   Put "Centrifuge not used " into line 3 of card field "message"
  298.   put "at this time" into line 5 of card field "message"
  299.   wait 2 seconds
  300.   hide card field "message"
  301.  
  302.  
  303.  
  304. end mouseUp
  305.  
  306.  
  307.  
  308.  
  309. -- part 38 (field)
  310. -- low flags: 81
  311. -- high flags: 0004
  312. -- rect: left=1 top=112 right=205 bottom=390
  313. -- title width / last selected line: 0
  314. -- icon id / first selected line: 0 / 0
  315. -- text alignment: 1
  316. -- font id: 3
  317. -- text size: 14
  318. -- style flags: 256
  319. -- line height: 18
  320. -- part name: Message
  321. ----- HyperTalk script -----
  322. on mouseup
  323.   hide card field "message"
  324. end mouseup
  325.  
  326.  
  327.  
  328. -- part 39 (button)
  329. -- low flags: 00
  330. -- high flags: 2000
  331. -- rect: left=434 top=112 right=198 bottom=504
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: Hot Water Bath
  340. ----- HyperTalk script -----
  341. on mouseUp
  342.  
  343.  
  344.   Put empty into card field "message"
  345.   show card field "message"
  346.   put "Check Flow Chart" into line 1 of card field "message"
  347.   Put "Hot Water Bath not used " into line 3 of card field "message"
  348.   put "at this time" into line 5 of card field "message"
  349.   wait 2 seconds
  350.   hide card field "message"
  351.  
  352.  
  353. end mouseUp
  354.  
  355.  
  356.  
  357. -- part 40 (field)
  358. -- low flags: 81
  359. -- high flags: 0004
  360. -- rect: left=0 top=7 right=206 bottom=416
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 1
  364. -- font id: 21
  365. -- text size: 18
  366. -- style flags: 0
  367. -- line height: 24
  368. -- part name: info
  369.  
  370.  
  371. -- part 41 (button)
  372. -- low flags: 00
  373. -- high flags: 0000
  374. -- rect: left=0 top=115 right=172 bottom=383
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: cv2
  383.  
  384.  
  385. -- part 42 (button)
  386. -- low flags: 00
  387. -- high flags: 4000
  388. -- rect: left=10 top=188 right=324 bottom=181
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 0
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: invert
  397. ----- HyperTalk script -----
  398. on mouseUp
  399.  
  400. end mouseUp
  401.  
  402.  
  403.  
  404. -- part contents for card part 4
  405. ----- text -----
  406. Please Wait While
  407. Computer Selects
  408. an Unknown for You
  409. to Analyze
  410.  
  411. -- part contents for card part 40
  412. ----- text -----
  413. Please Select next Reagent
  414.  
  415. -- part contents for card part 38
  416. ----- text -----
  417. Check Flow Chart
  418.  
  419. Centrifuge not used 
  420.  
  421. at this time
  422.  
  423. -- part contents for background part 8
  424. ----- text -----
  425. Please Select next Reagent